10 NA$="":INPUT"[147] NAME (OHNE '[193][146]PIC' !) ";NA$:IFNA$=""THENPRINT"[147]":END
20 L$="?PIC "+NA$+"*"
30 SYS(57812)L$,8,0:POKE781,0:POKE782,32:SYS65493
40 X=53265:POKEX+7,24:POKEX,59:POKEX+5,24:POKEX+16,PEEK(18192):POKEX+15,.
50 FORA=0TO999:POKE1024+A,PEEK(16192+A):POKE55296+A,PEEK(17192+A):NEXT
60 POKE198,0:WAIT198,1:POKE198,0:POKEX+7,20:POKEX,27:POKEX+5,200:RUN